unit Config.Attribute;

interface

uses
  Rtti;

type
  Default = class(TCustomAttribute)
  private
    fDefault : TValue;
  public
    constructor Create(aDefault : string); overload;
    constructor Create(aDefault : integer); overload;
    constructor Create(aDefault : double); overload;
    constructor Create(aDefault : boolean); overload;
    property DefaultValue : TValue read fDefault;
  end;

implementation

{ Config }

constructor Default.Create(aDefault: integer);
begin
  fDefault := aDefault;
end;

constructor Default.Create(aDefault: string);
begin
  fDefault := aDefault;
end;

constructor Default.Create(aDefault: boolean);
begin
  fDefault := aDefault;
end;

constructor Default.Create(aDefault: double);
begin
  fDefault := aDefault;
end;

end.
